home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / magic / d / mtvt52.d < prev    next >
Text File  |  1997-10-26  |  5KB  |  136 lines
  1. (*----------------------------------------------------------------------*
  2.  *                                                                      *
  3.  *  MAGICTOOLS   Modula's  All purpose  GEM  Interface  Cadre  Toolbox  *
  4.  *               ÿ         ÿ            ÿ    ÿ          ÿ               *
  5.  *----------------------------------------------------------------------*
  6.  * Version 3.30  02.02.1992     (C)90/91/92 by Peter Hellinger Software *
  7.  *----------------------------------------------------------------------*
  8.  *            Dieses Modul ist urheberrechtlich geschtzt.              *
  9.  *                                                                      *
  10.  * Die Ver”ffentlichung des Quelltextes oder Teilen daraus, sowie die   *
  11.  * Verbreitung des bersetzten, nicht gelinkten Codes in schriftlicher, *
  12.  * oder maschinenlesbarer Form, insbesondere in Zeitschriften, Mail-    *
  13.  * boxen oder anderen Medien bedarf der ausdrcklichen schriftlichen    *
  14.  * Einverst„ndnisserkl„rung des Autors.                                 *
  15.  *                                                                      *
  16.  * Die Verbreitung des Moduls als Teil eines gelinkten Programms ist    *
  17.  * fr Lizenznehmer ausdrcklich erlaubt!  Der Autor beh„lt sich das    *
  18.  * Recht vor, diese Erlaubnis jederzeit und ohne Angaben von Grnden zu *
  19.  * widerrufen.                                                          *
  20.  *----------------------------------------------------------------------*)
  21.  
  22. (*----------------------------------------------------------------------*
  23.  * mtVT52     GEMDOS basierter VT52-Treiber. Alle Ausgaben werden ber  *
  24.  *            MagicDOS.Fwrite abgewickelt, so daž einer simplen Aus-    *
  25.  *            gabeumlenkung nichts im Wege steht.  Als Default-Ausgabe  *
  26.  *            ist StdOut vorgesehen.                                    *
  27.  *----------------------------------------------------------------------*)
  28.  
  29. DEFINITION MODULE mtVT52;
  30.  
  31. FROM MagicSys   IMPORT  Nil, Null, Bit0, Bit1, Bit2, Bit3, Bit4, Bit5, Bit6,
  32.                         Bit7, Bit8, Bit9, Bit10, Bit11, Bit12, Bit13, Bit14,
  33.                         Bit15, LOC, Byte, ByteSet, sWORD, sINTEGER, sCARDINAL,
  34.                         sBITSET, lINTEGER, lCARDINAL, lWORD, lBITSET;
  35.  
  36.  
  37.  
  38.  
  39.  
  40. PROCEDURE WriteChar (c: CHAR);
  41. (* Schreibt Zeichen *)
  42.  
  43. PROCEDURE WriteLine (REF   s: ARRAY OF CHAR); 
  44. (* schnelle Stringausgabe, kein LF *)
  45.  
  46. PROCEDURE WriteConst (REF   s: ARRAY OF CHAR);
  47. (* Stringausgabe fr konstante Strings *)
  48.  
  49. PROCEDURE WriteLn;
  50. (* CR + LF *)
  51.  
  52. PROCEDURE WriteCard     (wert: sCARDINAL; len: sCARDINAL);
  53. PROCEDURE WriteInt      (wert: sINTEGER;  len: sCARDINAL);
  54. PROCEDURE WriteLongCard (wert: lCARDINAL; len: sCARDINAL);
  55. PROCEDURE WriteLongInt  (wert: lINTEGER;  len: sCARDINAL);
  56. PROCEDURE WriteReal     (wert: REAL;      len: sCARDINAL);
  57. PROCEDURE WriteLongReal (wert: LONGREAL;  len: sCARDINAL);
  58. (* Schreibt die entspechenden Werte mit L„nge len *)
  59.  
  60. PROCEDURE WriteFixReal  (wert: REAL;      len, fix: sCARDINAL);
  61. PROCEDURE WriteFixLReal (wert: LONGREAL;  len, fix: sCARDINAL);
  62. (* Schreibt die entspechenden Werte mit L„nge len und fix Nachkommastellen *)
  63.  
  64. PROCEDURE InsertLine;
  65. (* Fgt Leerzeile bei aktueller Cursorposition ein. Alle Zeilen unterhalb
  66.  * werden nach unten verschoben. Die unterste Zeile geht verloren.
  67.  *)
  68.  
  69. PROCEDURE DeleteLine;
  70. (* L”scht Zeile an aktueller Cursorposition. Alle Zeilen unterhalb
  71.  * werden nach oben verschoben. Die unterste Zeile wird leer.
  72.  *)
  73.  
  74. PROCEDURE WhereXY (VAR x, y: sCARDINAL);
  75. (* Ermittelt Cursorposition. Derzeit nicht implementiert *)
  76.  
  77. PROCEDURE GotoXY (x, y: sCARDINAL);
  78. (* Setzt Cursor auf Spalte/Zeile.  Die HOME-Position ist 0,0 *)
  79.  
  80. PROCEDURE CursorUp;
  81. PROCEDURE CursorDown;
  82. PROCEDURE CursorRight;
  83. PROCEDURE CursorLeft;
  84. PROCEDURE CursorOn;
  85. PROCEDURE CursorOff;
  86. (* Cursorhandling *)
  87.  
  88. PROCEDURE CursorStop;
  89. (* Stoppt blinkenden Cursor *)
  90.  
  91. PROCEDURE CursorBlink;
  92. (* L„žt Cursor blinken *)
  93.  
  94. PROCEDURE WrapOff;
  95. PROCEDURE WrapOn;
  96. (* Umbruch am Zeilenende. WrapOff ist Default *)
  97.  
  98. PROCEDURE ClearLine;
  99. (* L”scht aktuelle Zeile *)
  100.  
  101. PROCEDURE ClearStartOfLine;
  102. (* L”scht zum Zeilenanfang *)
  103.  
  104. PROCEDURE ClearEndOfLine;
  105. (* L”scht zum Zeilenende *)
  106.  
  107. PROCEDURE ClearScreen;
  108. (* L”scht Bildschirm *)
  109.  
  110. PROCEDURE ClearStartOfScreen;
  111. (* L”scht zum Anfang des Bildschirms *)
  112.  
  113. PROCEDURE ClearEndOfScreen;
  114. (* L”scht zum Ende des Bildschirms *)
  115.  
  116. PROCEDURE ForegroundColor (color: sINTEGER);
  117. PROCEDURE BackgroundColor (color: sINTEGER);
  118. (* Setzt die Farben  *)
  119.  
  120. PROCEDURE InversOn;
  121. PROCEDURE InversOff;
  122. (* Invers ein und wieder aus *)
  123.  
  124. CONST   StdOut =  1; (* Standard-GEMDOS-Device *)
  125.         Serial =  2;
  126.         Printer = 3;
  127.  
  128. PROCEDURE Device (handle: sINTEGER);
  129. (* Setzt das Ausgabeger„t fr die vorhergehenden Prozeduren. StdOut ist
  130.  * als Default vorgegeben. Hier kann auch ein File-Handle einer zum
  131.  * Schreiben er”ffneten Datei benutzt werden.
  132.  *)
  133.  
  134. END mtVT52.
  135.  
  136.